$PBExportHeader$w_cerrar_actividades_un_alumno.srw
$PBExportComments$Cierre de una Resolucion de Actividades que cumplen un Alumno.
forward
global type w_cerrar_actividades_un_alumno from w_multilinea
end type
end forward

global type w_cerrar_actividades_un_alumno from w_multilinea
end type
global w_cerrar_actividades_un_alumno w_cerrar_actividades_un_alumno

on w_cerrar_actividades_un_alumno.create
call super::create
end on

on w_cerrar_actividades_un_alumno.destroy
call super::destroy
end on

event ue_iniciar;call super::ue_iniciar;If IsValid(this) then
	dw_1.uof_Edicion("D", 'N')
	
	// Deshabilito el boton de busqueda de Alumnos.
	dw_1.object.busq_alumno.SuppressEventProcessing = "Yes"
	
	pb_1.Hide()
	pb_2.Hide()
End If
end event

event ue_acomodar_objetos;/* Ubica el detalle */
Integer ancho
ancho = This.wf_Ancho_Disponible()

This.SetRedraw(False)

dw_1.Width = Min(dw_1.uof_ancho(), This.wf_Ancho_Disponible())
This.wf_CentrarObjeto(dw_1)
If dw_1.cant_filas = 1 Then
	dw_1.Height = Min(dw_1.uof_largo(), This.wf_Largo_Disponible())
Else
	dw_1.Height = This.wf_Largo_Disponible()
End If
dw_1.Y = s_esp.borde

/* Calculo el Ancho y Alto de la dw_2 */
dw_2.Width = Min(dw_2.uof_Ancho(), ancho - s_esp.borde)
dw_2.Height = This.wf_Largo_Disponible() - dw_1.Height - s_esp.borde

/* Ubico la dw_2 */
dw_2.y = dw_1.y + dw_1.Height + s_esp.borde
dw_2.x = Int((ancho - dw_2.Width - s_esp.borde) / 2)

This.SetRedraw(True)

end event

event ue_confirmar;/* Cierro la Resolucion de Act Co-curriculares*/

/* Declaro el stored Procedure que genera una nueva clave de Acceso */
DECLARE cerrar_resolucion PROCEDURE FOR  sp_cerrarResActAlu(:at_op.s_det[1], :at_op.s_det[2]);

/* Ejecuto el Stored Procedure */
EXECUTE cerrar_resolucion;

// Error */
If SQLCA.sqlcode = -1 THEN
	guo_app.msg.uof_SetdbError(SQLCA.SQLdbCode,SQLCA.SQLErrText)

	ib_grabar = FALSE
END IF




end event

type pb_1 from w_multilinea`pb_1 within w_cerrar_actividades_un_alumno
boolean BringToTop=true
end type

type pb_2 from w_multilinea`pb_2 within w_cerrar_actividades_un_alumno
boolean BringToTop=true
end type

